home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
TSR
/
TPPOP18C
/
CURSOR.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-10-25
|
406b
|
28 lines
.MODEL TPASCAL
LOCALS @@
.CODE
PUBLIC cursor
Cursor PROC FAR state:WORD
xor ax,ax
mov es,ax
mov cx,word ptr es:[0460h]
mov ax,state
or al,al
jz @@1
and ch,0Fh
jmp @@2
@@1:
or ch,20h
@@2:
mov ah,1
int 10h
ret
Cursor ENDP
END